home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / pctj0987.arc / SCRNTEST.BAS < prev    next >
BASIC Source File  |  1987-07-02  |  194b  |  16 lines
  1. 'FILL SCREEN WITH TEXT
  2. defint a-z
  3. a$ = string$(72,"0")
  4. start! = timer
  5.  
  6. for i=1 to 10
  7.   cls
  8.   for r = 1 to 24
  9.     print a$
  10.   next r
  11. next i
  12. secs! = timer - start!
  13. print secs!
  14. end
  15.  
  16.